x<-rnorm(15,mean=10,sd=sqrt(3.6))
matriz.normal<-matrix(x,3,5)
col<-c("C1","C2","C3","C4","C5")
colnames(matriz.normal) <- paste(col)
row<-c("L1","L2","L3")
rownames(matriz.normal)<-paste(row)
ml<-apply(matriz.normal,1,FUN=mean)
vl<-apply(matriz.normal,1,FUN=var)
mc<-apply(matriz.normal,2,FUN=mean)
vc<-apply(matriz.normal,2,FUN=var)
linha<-data.frame(ml,vl)
col2<-c("media","var")
colnames(linha) <- paste(col2)
coluna<-data.frame(mc,vc)
colnames(coluna) <- paste(col2)